home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr52 / toolbr.zip / FONTBAR.SPR < prev    next >
Text File  |  1993-07-19  |  11KB  |  351 lines
  1. *       *********************************************************
  2. *       *                                                         
  3. *       * 04/25/93             FONTBAR.SPR               09:58:03 
  4. *       *                                                         
  5. *       *********************************************************
  6. *       *                                                         
  7. *       * Author's Name                                           
  8. *       *                                                         
  9. *       * Copyright (c) 1993 Company Name                         
  10. *       * Address                                                 
  11. *       * City,     Zip                                           
  12. *       *                                                         
  13. *       * Description:                                            
  14. *       * This program was automatically generated by GENSCRN.    
  15. *       *                                                         
  16. *       *********************************************************
  17.  
  18.  
  19. *       *********************************************************
  20. *       *                                                         
  21. *       *         FONTBAR/Windows Setup Code - SECTION 1          
  22. *       *                                                         
  23. *       *********************************************************
  24. *
  25.  
  26. #REGION 1
  27. ** DO defWin
  28.  
  29.  
  30. #REGION 0
  31. REGIONAL m.currarea, m.talkstat, m.compstat
  32.  
  33. IF SET("TALK") = "ON"
  34.     SET TALK OFF
  35.     m.talkstat = "ON"
  36. ELSE
  37.     m.talkstat = "OFF"
  38. ENDIF
  39. m.compstat = SET("COMPATIBLE")
  40. SET COMPATIBLE FOXPLUS
  41.  
  42. m.rborder = SET("READBORDER")
  43. SET READBORDER ON
  44.  
  45. m.currarea = SELECT()
  46.  
  47.  
  48. *       *********************************************************
  49. *       *                                                         
  50. *       *               Windows Window definitions                
  51. *       *                                                         
  52. *       *********************************************************
  53. *
  54.  
  55. IF NOT WEXIST("w_toolbar") ;
  56.     OR UPPER(WTITLE("W_TOOLBAR")) == "W_TOOLBAR.PJX" ;
  57.     OR UPPER(WTITLE("W_TOOLBAR")) == "W_TOOLBAR.SCX" ;
  58.     OR UPPER(WTITLE("W_TOOLBAR")) == "W_TOOLBAR.MNX" ;
  59.     OR UPPER(WTITLE("W_TOOLBAR")) == "W_TOOLBAR.PRG" ;
  60.     OR UPPER(WTITLE("W_TOOLBAR")) == "W_TOOLBAR.FRX" ;
  61.     OR UPPER(WTITLE("W_TOOLBAR")) == "W_TOOLBAR.QPR"
  62.     DEFINE WINDOW w_toolbar ;
  63.         AT -1.538, -2.400 ;
  64.         SIZE 2.385,129.000 ;
  65.         FONT "MS Sans Serif", 8 ;
  66.         FLOAT ;
  67.         NOCLOSE ;
  68.         MINIMIZE ;
  69.         NONE ;
  70.         COLOR RGB(,,,192,192,192)
  71. ENDIF
  72.  
  73.  
  74. *       *********************************************************
  75. *       *                                                         
  76. *       *         FONTBAR/Windows Setup Code - SECTION 2          
  77. *       *                                                         
  78. *       *********************************************************
  79. *
  80.  
  81. #REGION 1
  82. DO defWin
  83. boldStyle=0
  84. italicStyle=0
  85. winStyle=1
  86. IF AFONT(fontList)
  87.  
  88. ELSE
  89.     DIMENSION fontList(1)
  90.     fontList(1)='No Fonts Available'
  91. ENDIF
  92. currFont=1
  93. IF AFONT(sizeList,fontList(currFont))
  94.     IF sizeList=-1
  95.         DIMENSION sizeList(24)
  96.         place=1
  97.         FOR i=2 TO 48 STEP 2
  98.             sizeList(place)=i
  99.             place=place+1
  100.         ENDFOR
  101.     ENDIF
  102. ELSE
  103.     DIMENSION sizeList(1)
  104.     sizeList(1)='10'
  105. ENDIF
  106. currSize=1
  107. DIMENSION fldList(1)
  108. fldList(1)='No order'
  109. DO getOrder
  110. DO showBrowse
  111.  
  112. *       *********************************************************
  113. *       *                                                         
  114. *       *              FONTBAR/Windows Screen Layout              
  115. *       *                                                         
  116. *       *********************************************************
  117. *
  118.  
  119. #REGION 1
  120. IF WVISIBLE("w_toolbar")
  121.     ACTIVATE WINDOW w_toolbar SAME
  122. ELSE
  123.     ACTIVATE WINDOW w_toolbar NOSHOW
  124. ENDIF
  125. @ 0.385,4.800 GET currFont ;
  126.     PICTURE "@^" ;
  127.     FROM fontList ;
  128.     SIZE 1.538,24.167 ;
  129.     DEFAULT 1 ;
  130.     FONT "MS Sans Serif", 8 ;
  131.     STYLE "B" ;
  132.     VALID showSize()
  133. @ 0.385,81.600 GET currorder ;
  134.     PICTURE "@^" ;
  135.     FROM fldlist ;
  136.     SIZE 1.538,18.167 ;
  137.     DEFAULT 1 ;
  138.     FONT "MS Sans Serif", 8 ;
  139.     STYLE "B" ;
  140.     VALID _qfa0ld5kl()
  141. @ 0.385,35.400 GET currSize ;
  142.     PICTURE "@^" ;
  143.     FROM sizeList ;
  144.     SIZE 1.538,12.000 ;
  145.     DEFAULT 1 ;
  146.     FONT "MS Sans Serif", 8 ;
  147.     STYLE "B" ;
  148.     VALID showBrowse()
  149. @ 0.385,52.800 GET boldStyle ;
  150.     PICTURE "@*CB " + ;
  151.         (LOCFILE("bold.bmp","BMP|ICO","Where is bold?")) ;
  152.     SIZE 1.615,5.000 ;
  153.     DEFAULT 0 ;
  154.     FONT "MS Sans Serif", 8 ;
  155.     STYLE "T" ;
  156.     VALID showBrowse()
  157. @ 0.385,57.600 GET italicStyle ;
  158.     PICTURE "@*CB " + ;
  159.         (LOCFILE("italic.bmp","BMP|ICO","Where is italic?")) ;
  160.     SIZE 1.615,5.000 ;
  161.     DEFAULT 0 ;
  162.     FONT "MS Sans Serif", 8 ;
  163.     STYLE "T" ;
  164.     VALID showBrowse()
  165. @ 0.308,65.200 GET winStyle ;
  166.     PICTURE "@*RBHN " + ;
  167.         (LOCFILE("workshet.bmp","BMP|ICO","Where is workshet?")) + ";" + ;
  168.         (LOCFILE("dialog.bmp","BMP|ICO","Where is dialog?")) ;
  169.     SIZE 1.692,4.400,0.000 ;
  170.     DEFAULT 1 ;
  171.     FONT "MS Sans Serif", 8 ;
  172.     STYLE "T" ;
  173.     VALID _qfa0ld62m()
  174.  
  175. IF NOT WVISIBLE("w_toolbar")
  176.     ACTIVATE WINDOW w_toolbar
  177. ENDIF
  178.  
  179. READ CYCLE ;
  180.     SHOW _qfa0ld6a0()
  181.  
  182. RELEASE WINDOW w_toolbar
  183. SELECT (m.currarea)
  184.  
  185.  
  186. #REGION 0
  187.  
  188. SET READBORDER &rborder
  189.  
  190. IF m.talkstat = "ON"
  191.     SET TALK ON
  192. ENDIF
  193. IF m.compstat = "ON"
  194.     SET COMPATIBLE ON
  195. ENDIF
  196.  
  197.  
  198. *       *********************************************************
  199. *       *                                                         
  200. *       *              FONTBAR/Windows Cleanup Code               
  201. *       *                                                         
  202. *       *********************************************************
  203. *
  204.  
  205. #REGION 1
  206. theFile=DBF()
  207. theRec=RECNO()
  208. USE
  209. USE (theFile)
  210. GO (theRec)
  211.  
  212.  
  213.  
  214. *       *********************************************************
  215. *       *                                                         
  216. *       *  FONTBAR/Windows Supporting Procedures and Functions    
  217. *       *                                                         
  218. *       *********************************************************
  219. *
  220.  
  221. #REGION 1
  222. PROCEDURE showBrowse
  223. ** Procedure to show and update Browse
  224. IF EMPTY(DBF())
  225.     USE (GETFILE("DBF"))
  226. ENDIF
  227.  
  228. theStyle='N'+IIF(boldStyle=1,"B","")+IIF(italicStyle=1,"I","")
  229.  
  230. theFont=fontList(currFont)
  231. theSize=sizeList(currSize)
  232. IF winStyle=1
  233.     BROWSE PREFERENCE saveMe FONT theFont,theSize STYLE theStyle NOWAIT WINDOW w_browse
  234. ELSE
  235.     EDIT FONT theFont,theSize STYLE theStyle NOWAIT WINDOW w_browse
  236. ENDIF
  237. PROCEDURE getOrder
  238. IF EMPTY(DBF())
  239.     DIMENSION fldList(1)
  240.     fldList(1)='No Order'
  241. ELSE
  242.     newTag='start'
  243.     stTag=1
  244.     DO WHILE NOT EMPTY(newTag)
  245.         newTag=TAG(stTag)
  246.         IF stTag=1 AND EMPTY(newTag)
  247.             DIMENSION fldList(1)
  248.             fldList(1)='No Order'
  249.         ELSE
  250.             DIMENSION fldList(stTag)
  251.             fldList(stTag)=newTag
  252.             stTag=stTag+1
  253.         ENDIF
  254.     ENDDO
  255.     ** DIMENSION fldList(FCOUNT())
  256.     ** FOR i=1 TO FCOUNT()
  257.     **    fldList(i)=FIELD(i)
  258.     ** ENDFOR
  259. ENDIF
  260. currOrder=1
  261. SHOW GET currOrder
  262. DO showBrowse
  263.  
  264. PROCEDURE setOrder
  265. PARAMETER newOrder
  266. SET ORDER TO (fldList(newOrder))
  267. DO showBrowse
  268.  
  269. PROCEDURE showSize
  270. IF AFONT(sizeList,fontList(currFont))
  271.     IF sizeList=-1
  272.         DIMENSION sizeList(24)
  273.         place=1
  274.         FOR i=2 TO 48 STEP 2
  275.             sizeList(place)=i
  276.             place=place+1
  277.         ENDFOR
  278.     ENDIF
  279. ELSE
  280.     DIMENSION sizeList(1)
  281.     sizeList(1)='10'
  282. ENDIF
  283. SHOW GET currSize
  284. DO showBrowse
  285.  
  286. PROCEDURE defWin
  287. DEFINE WINDOW w_browse FROM 0+WROWS("W_TOOLBAR"),0 TO SROWS(),WCOLS("W_TOOLBAR")-5 FONT WFONT(1,"W_TOOLBAR"),WFONT(2,"W_TOOLBAR")
  288.  
  289.  
  290.  
  291. *       *********************************************************
  292. *       *                                                         
  293. *       * _QFA0LD5KL           currorder VALID                    
  294. *       *                                                         
  295. *       * Function Origin:                                        
  296. *       *                                                         
  297. *       * From Platform:       Windows                            
  298. *       * From Screen:         FONTBAR,     Record Number:    3   
  299. *       * Variable:            currorder                          
  300. *       * Called By:           VALID Clause                       
  301. *       * Snippet Number:      1                                  
  302. *       *                                                         
  303. *       *********************************************************
  304. *
  305. FUNCTION _qfa0ld5kl     &&  currorder VALID
  306. #REGION 1
  307. DO setOrder WITH currOrder
  308.  
  309. *       *********************************************************
  310. *       *                                                         
  311. *       * _QFA0LD62M           winStyle VALID                     
  312. *       *                                                         
  313. *       * Function Origin:                                        
  314. *       *                                                         
  315. *       * From Platform:       Windows                            
  316. *       * From Screen:         FONTBAR,     Record Number:    7   
  317. *       * Variable:            winStyle                           
  318. *       * Called By:           VALID Clause                       
  319. *       * Snippet Number:      2                                  
  320. *       *                                                         
  321. *       *********************************************************
  322. *
  323. FUNCTION _qfa0ld62m     &&  winStyle VALID
  324. #REGION 1
  325. DO showBrowse
  326.  
  327. *       *********************************************************
  328. *       *                                                         
  329. *       * _QFA0LD6A0           Read Level Show                    
  330. *       *                                                         
  331. *       * Function Origin:                                        
  332. *       *                                                         
  333. *       *                                                         
  334. *       * From Platform:       Windows                            
  335. *       * From Screen:         FONTBAR                            
  336. *       * Called By:           READ Statement                     
  337. *       * Snippet Number:      3                                  
  338. *       *                                                         
  339. *       *********************************************************
  340. *
  341. FUNCTION _qfa0ld6a0     && Read Level Show
  342. PRIVATE currwind
  343. STORE WOUTPUT() TO currwind
  344. *
  345. * Show Code from screen: FONTBAR
  346. *
  347. #REGION 1
  348. DO showBrowse
  349. IF NOT EMPTY(currwind)
  350.     ACTIVATE WINDOW (currwind) SAME
  351. ENDIF